From: Andrew G Cohen Date: Sun, 23 Apr 2017 01:05:49 +0000 (+0800) Subject: Eliminate unneeded warp-to-article in gnus article referral X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~21^2~1546^2~569 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5317193fe55d130a456fe0cf06c56f027d617b09;p=emacs.git Eliminate unneeded warp-to-article in gnus article referral * lisp/gnus/gnus-sum.el (gnus-summary-refer-thread): (gnus-summary-refer-article): Remove gnus-warp-to article call. --- diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 2414e866574..183cd46fa45 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -9016,7 +9016,6 @@ LIMIT (the numerical prefix) old headers. If LIMIT is non-numeric or nil fetch the number specified by the `gnus-refer-thread-limit' variable." (interactive "P") - (gnus-warp-to-article) (let* ((header (gnus-summary-article-header)) (id (mail-header-id header)) (gnus-inhibit-demon t) @@ -9105,7 +9104,6 @@ non-numeric or nil fetch the number specified by the (defun gnus-summary-refer-article (message-id) "Fetch an article specified by MESSAGE-ID." (interactive "sMessage-ID: ") - (gnus-warp-to-article) (when (and (stringp message-id) (not (zerop (length message-id)))) (setq message-id (replace-regexp-in-string " " "" message-id))